anim.m2 <- lm(log(brain)~log(body),data=Animals, 
              subset=!(log(Animals$body)>8&log(Animals$brain)<6))

anim.m0 <- lm(log(brain)~1, data=Animals, 
              subset=!(log(Animals$body)>8&log(Animals$brain)<6))

anova(anim.m0,anim.m2)

anova(anim.m2)

summary(anim.m0)
mean(log(Animals$brain[!(log(Animals$body)>8&log(Animals$brain)<6)]))
sd(log(Animals$brain[!(log(Animals$body)>8&log(Animals$brain)<6)]))


anim.m0 <- update(anim.m2, .~. -log(body))
anim.m0



#1. Qual a relao do comando 'anova' acima com: anova(anim.m2)

#Resp.1: A primeira anova analisa se h diferenas significativas entre o modelo nulo "anim.m0" e o modelo proposto de relao entre tamanho de crebo e de corpo "anim.m2", j a segunda anova "anova(anim.m2") analisa apenas se a relao entre tamanho de crebro e tamanho de corpo, aps as modificaes feitas em "anim.m2",  significativa. 

#2.Qual a relao entre os valores obtidos por estes comandos:

#Resp.2: A mdia  o valor de intercepto apresentado pelo summary e o desvio  o valor do resduo pelo summary. 